Object subclass: #Correo	instanceVariableNames: 'nombreCorreo'	classVariableNames: ''	poolDictionaries: ''	category: 'ISGalarzaBrian'!!Correo methodsFor: 'as yet unclassified' stamp: 'BrianGalarza 6/27/2014 13:25'!getCorreo	"retorna el correo"	^nombreCorreo.! !!Correo methodsFor: 'as yet unclassified' stamp: 'BrianGalarza 6/27/2014 13:36'!setCorreo:correoName	"setear el nombre del correo"	nombreCorreo:=correoName.	! !Object subclass: #Usuario	instanceVariableNames: 'nombreUsuario correoUsuario'	classVariableNames: ''	poolDictionaries: ''	category: 'ISGalarzaBrian'!!Usuario methodsFor: 'as yet unclassified' stamp: 'BrianGalarza 6/27/2014 13:30'!getUsuario	"retorna el nombre del usuario"	 ^nombreUsuario.! !!Usuario methodsFor: 'as yet unclassified' stamp: 'BrianGalarza 6/27/2014 13:36'!setUsuario:nombreNuevo	"setea el nombre del usuario "	nombreUsuario:=nombreNuevo.	! !